home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -seriously_amiga- / misc / evenmore / install < prev    next >
Text File  |  1999-02-03  |  12KB  |  497 lines
  1. ; *************************************************************
  2. ;
  3. ; $VER: Install_EvenMore
  4. ; 
  5. ; Install script for EvenMore Copyright ©1996-1998 Chris Perver
  6. ;
  7. ; *************************************************************
  8.  
  9. (set old_level @user-level)
  10. (set @default-dest "")
  11. (set lng @language)
  12.  
  13. (complete 0)
  14.  
  15. ;=============================================================================
  16. ; Norsk
  17.  
  18. (if (= lng "norsk")
  19. (
  20.  
  21. (set #bad-kick
  22.   (cat "Du må ha minst Kickstart 2.04 for å  installere EvenMore")
  23. )
  24. (set #copy-reqtools      "\nKopierer reqtools.library 38.1436 til LIBS:...")
  25. (set #copy-evenmore      "\nKopierer EvenMore exe-fil...")
  26. (set #copy-documentation "\nKopierer EvenMore dokumentasjon...")
  27. (set #copy-iconsstan     "\nKopierer Standard knappe-ikoner ...")
  28. (set #copy-iconsmwb      "\nKopierer MagicWB knappe-ikoner...")
  29. (set #copy-iconsprog     "\nKopierer Program-ikoner...")
  30. (set #copy-iconsdock     "\nKopierer Dokk-ikoner...")
  31. (set #copy-rexx          "\nKopierer ARexx-script...")
  32. (set #copy-pic           "\nKopierer EvenMore bilde...")
  33. (set #copy-cat           "\nKopierer EvenMore kataloger...")
  34. (set #select-dest        "Vennligst velg Evenmore-skuffen med den tidligere installasjonen.")
  35. (set #select-destnew     "Vennligst velg stien for installasjon av Evenmore. En skuff kalt Evenmore vil bli laget der.")
  36. (set #select-destdocs    "Vennligst velg stien for installasjon av dokumentasjonen til Evenmore. Den har allerede blitt installert sammen med hovedprogrammet.")
  37. (set #select-destrexx    "Vennligst velg stien for installasjon av ARexx-script. Den har allerede blitt installert sammen med hovedprogrammet.")
  38. (set #query-install      "Ønsker du å oppdatere eller installere EvenMore?")
  39. (set #query-copydocs     "Ønsker du å installere dokumentasjonen til Evenmore på noe annet sted?")
  40. (set #query-copyprefs    "Ønsker du å installere standard preferanse-filen?")
  41. (set #query-copyrexx     "Ønsker du å installere ARexx-script på noe annet sted?")
  42. (set #yes                "Ja")
  43. (set #no                 "Nei")
  44.  
  45. )
  46.  
  47. ;=============================================================================
  48. ; English
  49.  
  50. (
  51.  
  52. (set #bad-kick
  53.   (cat "You must at least have Kickstart 2.04 to install EvenMore")
  54. )
  55. (set #copy-reqtools      "\nCopying reqtools.library 38.1436 to LIBS:...")
  56. (set #copy-evenmore      "\nCopying EvenMore executable...")
  57. (set #copy-documentation "\nCopying EvenMore documentation...")
  58. (set #copy-iconsstan     "\nCopying Standard gadget icons...")
  59. (set #copy-iconsmwb      "\nCopying MagicWB gadget icons...")
  60. (set #copy-iconsprog     "\nCopying Program icons...")
  61. (set #copy-iconsdock     "\nCopying Dock icons...")
  62. (set #copy-rexx          "\nCopying ARexx scripts...")
  63. (set #copy-pic           "\nCopying EvenMore snapshot...")
  64. (set #copy-cat           "\nCopying EvenMore catalogs...")
  65. (set #select-dest        "Please select the EvenMore directory.")
  66. (set #select-destnew     "Please select the path where you want to install EvenMore. A drawer named EvenMore will be created there.")
  67. (set #select-destdocs    "Please select the path where you want to install the EvenMore documentation. It has already been installed along with the main program.")
  68. (set #select-destrexx    "Please select the path where you want to install the ARexx scripts. It has already been installed along with the main program.")
  69. (set #query-install      "Do you wish to install or update EvenMore?")
  70. (set #query-copydocs     "Do you wish to install the EvenMore documentation anywhere else?")
  71. (set #query-copyprefs    "Do you wish to install the default preference file?")
  72. (set #query-copyrexx     "Do you wish to install the ARexx scripts anywhere else?")
  73. (set #yes                "Yes")
  74. (set #no                 "No")
  75.  
  76. )
  77. )
  78.  
  79. ;=============================================================================
  80. ; Make sure we are running under a 2.04 ROM
  81.  
  82. (if (< (/ (getversion) 65536) 37)
  83.   (
  84.     (abort #bad-kick)
  85.   )
  86. )
  87.  
  88. ;=============================================================================
  89. ; Install or update
  90. (set install
  91.   (askchoice
  92.      (prompt #query-install)
  93.      (help @askchoice-help)
  94.      (choices "Install" "Update")
  95.   )
  96. )
  97.  
  98.  
  99. ;-----------------------------------------------------------------------------
  100. ; Copy Required libraries
  101.  
  102. (if (= install 0)
  103.   (
  104.     (copylib
  105.       (prompt #copy-reqtools)
  106.       (help @copylib-help)
  107.       (source "Libs/reqtools.library")
  108.       (dest "LIBS:")
  109.       (confirm)
  110.     )
  111.   )
  112. )
  113. (complete 10)
  114.  
  115. ;-----------------------------------------------------------------------------
  116. ; Copy EvenMore executable
  117.  
  118. (if (= install 0)
  119.   (
  120.     (set programdir
  121.       (askdir
  122.         (prompt  #select-destnew)
  123.         (help @askdir-help)
  124.         (default "RAM:")
  125.         (newpath)
  126.       )
  127.     )
  128.   )
  129.   (
  130.     (set programdir
  131.       (askdir
  132.         (prompt  #select-dest)
  133.         (help @askdir-help)
  134.         (default "EvenMore:")
  135.       )
  136.     )
  137.   )
  138. )
  139.  
  140. (if (= install 0)
  141.   ; Create EvenMore drawer
  142.   (
  143.     (makedir (tackon programdir "EvenMore")
  144.       (help @makedir-help)
  145.     )
  146.  
  147.     ; Copy EvenMore drawer icon
  148.     (copyfiles
  149.       (prompt #copy-evenmore)
  150.       (help @copyfiles-help)
  151.       (source "/EvenMore.info")
  152.       (dest programdir)
  153.     )
  154.  
  155.     (set programdir (tackon programdir "EvenMore"))
  156.   )
  157. )
  158. (set @default-dest programdir)
  159.  
  160. (copyfiles
  161.   (prompt #copy-evenmore)
  162.   (help @copyfiles-help)
  163.   (source "")
  164.   (dest programdir)
  165.   (pattern "EvenMore")
  166.   (infos)
  167. )
  168. (complete 20)
  169.  
  170. ;-----------------------------------------------------------------------------
  171. ; Documentation files
  172.  
  173. (if (not (exists (tackon programdir "Docs")))
  174.   (
  175.     (makedir (tackon programdir "Docs")
  176.       (help @makedir-help)
  177.     )
  178.  
  179.     (copyfiles
  180.       (prompt #copy-documentation)
  181.       (help @copyfiles-help)
  182.       (source "Docs.info")
  183.       (dest programdir)
  184.     )
  185.   )
  186. )
  187.  
  188. (copyfiles
  189.   (prompt #copy-documentation)
  190.   (help @copyfiles-help)
  191.   (source "Docs")
  192.   (dest (tackon programdir "Docs"))
  193.   (all)
  194.   (confirm "expert")
  195.   (infos)
  196. )
  197. (complete 30)
  198.  
  199. ; Ask if documentation should be installed elsewhere
  200.  
  201. (if
  202.   (askbool
  203.     (prompt #query-copydocs)
  204.     (choices #yes #no)
  205.     (default 0)
  206.     (help @askbool-help)
  207.   )
  208.   (
  209.     (set doit 1)
  210.   )
  211.   (
  212.     (set doit 0)
  213.   )
  214. )
  215.  
  216. (if (= doit 1)
  217.   (
  218.     (set docdir
  219.       (askdir
  220.         (prompt #select-destdocs)
  221.         (help @askdir-help)
  222.         (default (tackon programdir "Docs"))
  223.         (newpath)
  224.       )
  225.     )
  226.  
  227.     (copyfiles
  228.       (prompt #copy-documentation)
  229.       (help @copyfiles-help)
  230.       (source "Docs/EvenMore.guide")
  231.       (dest docdir)
  232.       (infos)
  233.     )
  234.   )
  235. )
  236. (complete 40)
  237.  
  238. ;-----------------------------------------------------------------------------
  239. ; Copy catalogs
  240.  
  241. (if (not (exists (tackon programdir "Catalogs")))
  242.   (
  243.     (makedir (tackon programdir "Catalogs")
  244.       (help @makedir-help)
  245.     )
  246.   )
  247. )
  248.  
  249. (copyfiles
  250.   (prompt #copy-cat)
  251.   (help @copyfiles-help)
  252.   (source "Catalogs/")
  253.   (dest (tackon programdir "Catalogs/"))
  254.   (all)
  255.   (confirm "novice")
  256. )
  257. (complete 45)
  258.  
  259. ;-----------------------------------------------------------------------------
  260. ; Copy icons
  261.  
  262. ; OBSOLETE
  263. (if (exists (tackon programdir "Icons/Standard/loadicon.info"))   (delete (tackon programdir "Icons/Standard/loadicon.info") ))
  264. (if (exists (tackon programdir "Icons/Standard/reloadicon.info")) (delete (tackon programdir "Icons/Standard/reloadicon.info") ))
  265. (if (exists (tackon programdir "Docs/EvenMore.doc")) (delete (tackon programdir "Docs/EvenMore.doc") ))
  266. (if (exists (tackon programdir "Docs/EvenMore.doc.info")) (delete (tackon programdir "Docs/EvenMore.doc.info") ))
  267.  
  268. (if (exists (tackon programdir "Icons/MagicWB/loadicon.info"))   (delete (tackon programdir "Icons/MagicWB/loadicon.info") ))
  269. (if (exists (tackon programdir "Icons/MagicWB/reloadicon.info")) (delete (tackon programdir "Icons/MagicWB/reloadicon.info") ))
  270. (delete (tackon programdir "Icons/#?.info"))
  271.  
  272.  
  273. (set iconsdir
  274.   (tackon
  275.     programdir
  276.     "Icons"
  277.   )
  278. )
  279.  
  280. (if (not (exists iconsdir))
  281.   (
  282.     (makedir iconsdir
  283.       (help @makedir-help)
  284.     )
  285.     (copyfiles
  286.       (prompt #copy-iconsstan)
  287.       (help @copyfiles-help)
  288.       (source "Icons.info")
  289.       (dest programdir)
  290.     )
  291.   )
  292. )
  293.  
  294. ; Standard gadget icons
  295.  
  296. (if (not (exists (tackon iconsdir "Standard")))
  297.   (
  298.     (makedir (tackon iconsdir "Standard")
  299.       (help @makedir-help)
  300.     )
  301.   )
  302. )
  303.  
  304. (copyfiles
  305.   (prompt #copy-iconsstan)
  306.   (help @copyfiles-help)
  307.   (source "Icons/Standard/")
  308.   (dest (tackon iconsdir "Standard/"))
  309.   (pattern "#?.info")
  310.   (confirm "expert")
  311. )
  312. (complete 50)
  313.  
  314. ; MagicWB gadget icons
  315.  
  316. (if (not (exists (tackon iconsdir "MagicWB")))
  317.   (
  318.     (makedir (tackon iconsdir "MagicWB")
  319.       (help @makedir-help)
  320.     )
  321.   )
  322. )
  323.  
  324. (copyfiles
  325.   (prompt #copy-iconsmwb)
  326.   (help @copyfiles-help)
  327.   (source "Icons/MagicWB/")
  328.   (dest (tackon iconsdir "MagicWB/"))
  329.   (pattern "#?.info")
  330.   (confirm "expert")
  331. )
  332. (complete 60)
  333.  
  334. ; Program icons
  335.  
  336. (if (not (exists (tackon iconsdir "Program")))
  337.   (
  338.     (makedir (tackon iconsdir "Program")
  339.       (help @makedir-help)
  340.     )
  341.   )
  342. )
  343.  
  344. (copyfiles
  345.   (prompt #copy-iconsprog)
  346.   (help @copyfiles-help)
  347.   (source "Icons/Program/")
  348.   (dest (tackon iconsdir "Program/"))
  349.   (pattern "#?.info")
  350.   (confirm "expert")
  351. )
  352. (complete 70)
  353.  
  354. ; Dock icons
  355.  
  356. (if (not (exists (tackon iconsdir "Dock")))
  357.   (
  358.     (makedir (tackon iconsdir "Dock")
  359.       (help @makedir-help)
  360.     )
  361.   )
  362. )
  363.  
  364. (copyfiles
  365.   (prompt #copy-iconsdock)
  366.   (help @copyfiles-help)
  367.   (source "Icons/Dock/")
  368.   (all)
  369.   (dest (tackon iconsdir "Dock/"))
  370.   (confirm "expert")
  371. )
  372. (complete 80)
  373.  
  374. ;-----------------------------------------------------------------------------
  375. ; Copy EvenMore rexx dir
  376.  
  377. (if (not (exists (tackon programdir "rexx")))
  378.   (
  379.     (makedir (tackon programdir "rexx")
  380.       (help @makedir-help)
  381.     )
  382.   )
  383.  
  384. (copyfiles
  385.     (prompt #copy-rexx)
  386.     (help @copyfiles-help)
  387.     (source "rexx")
  388.     (dest (tackon programdir "rexx"))
  389.     (all)
  390.     (confirm "expert")
  391.   )
  392. )
  393.  
  394. (if
  395.   (askbool
  396.     (prompt #query-copyrexx)
  397.     (choices #yes #no)
  398.     (default 0)
  399.     (help @askbool-help)
  400.   )
  401.   (
  402.     (set doit 1)
  403.   )
  404.   (
  405.     (set doit 0)
  406.   )
  407. )
  408.  
  409. (if (= doit 1)
  410.   (
  411.     (set rexxdir
  412.       (askdir
  413.         (prompt #select-destrexx)
  414.         (help @askdir-help)
  415.         (default (tackon programdir "Rexx"))
  416.         (newpath)
  417.       )
  418.     )
  419.  
  420.     (copyfiles
  421.       (prompt #copy-rexx)
  422.       (help @copyfiles-help)
  423.       (source "rexx")
  424.       (dest rexxdir)
  425.       (all)
  426.       (confirm "expert")
  427.     )
  428.   )
  429. )
  430.  
  431. ;-----------------------------------------------------------------------------
  432. ; Copy EvenMore lib dir
  433.  
  434. (if (not (exists (tackon programdir "libs")))
  435.   (
  436.     (makedir (tackon programdir "libs")
  437.       (help @makedir-help)
  438.     )
  439.  
  440.     (copyfiles
  441.       (prompt #copy-libs)
  442.       (help @copyfiles-help)
  443.       (source "libs")
  444.       (dest (tackon programdir "libs"))
  445.       (all)
  446.     )
  447.   )
  448. )
  449. (complete 90)
  450.  
  451. ;-----------------------------------------------------------------------------
  452. ; Copy EvenMore snapshot
  453.  
  454. (copyfiles
  455.   (prompt #copy-pic)
  456.   (help @copyfiles-help)
  457.   (source "EvenMore.snapshot")
  458.   (dest programdir)
  459.   (confirm "expert")
  460. )
  461.  
  462. ;-----------------------------------------------------------------------------
  463. ; Copy EvenMore config
  464.  
  465. (if
  466.   (askbool
  467.     (prompt #query-copyprefs)
  468.     (choices #yes #no)
  469.     (default 1)
  470.     (help @askbool-help)
  471.   )
  472.   (
  473.     (copyfiles
  474.       (prompt #copy-libs)
  475.       (help @copyfiles-help)
  476.       (source "EvenMore.config")
  477.       (dest programdir)
  478.     )
  479.   )
  480. )
  481. (complete 95)
  482.  
  483. ;-----------------------------------------------------------------------------
  484. ; Copy EvenMore installer
  485.  
  486. (copyfiles
  487.   (prompt #copy-libs)
  488.   (help @copyfiles-help)
  489.   (source "")
  490.   (dest programdir)
  491.   (pattern "Install")
  492.   (infos)
  493. )
  494. (complete 100)
  495.  
  496. (exit)
  497.